home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / sh1_111.zip / ED.SH < prev    next >
Text File  |  1987-10-26  |  706b  |  36 lines
  1. ^ ed.sh finds and lists all subdirs found in current dir
  2.   and prompts for the subdir number to log into ^
  3. local EDLN EDX EDY EDDirName
  4. shx -ddn1 *.* > sh1tmp1.@@@
  5. EDLN=1
  6. EDX=2
  7. EDY=1
  8. cls
  9. for EDDirName infile sh1tmp1.@@@
  10.   gotoxy %EDX %EDY
  11.   echo %EDLN: %EDDirName
  12.   compute EDLN= %EDLN + 1
  13.   if %EDLN == 10
  14.     EDX=1
  15.   endif
  16.   compute EDY= %EDY + 1
  17.   if %EDY == 21
  18.     compute EDX= %EDX + 16
  19.     EDY=1
  20.   endif
  21. endfor
  22. if %EDLN > 1
  23.   gotoxy 1 23
  24.   echo Enter Dir number:_
  25.   accept EDDirName
  26.   if '%EDDirName' != '' & %EDDirName < %EDLN
  27.     cd `shx -xt sh1tmp1.@@@ %EDDirName`
  28.     del ..\sh1tmp1.@@@
  29.   else
  30.     del sh1tmp1.@@@
  31.   endif
  32. endif
  33. if '%1' == 'S'
  34.   showstat
  35. endif
  36.